home *** CD-ROM | disk | FTP | other *** search
/ Aminet 6 / Aminet 6 - June 1995.iso / Aminet / util / shell / dbGoodies.lha / goodies / keypad / GetPage next >
Encoding:
AmigaDOS Script File  |  1994-10-16  |  587 b   |  35 lines
  1. .key num,mode
  2. .bra {
  3. .ket }
  4.  
  5. ;
  6. ;    $VER: GetPage 1.3 (15-Okt-94) by Daniel Balster
  7. ;
  8.  
  9. Set tempname T:GETPAGE{$$}
  10.  
  11. Echo "savepage {num} {mode}" >T:RC_{num}
  12. Protect T:RC_{num} +se
  13. Copy T:RC_{num} _RAM:T/RemoteCommand
  14. Delete T:RC_{num} QUIET
  15.  
  16. WaitForFile RAM:VTPAGE.{num}
  17. Rename RAM:VTPAGE.{num} $tempname
  18.  
  19. if `sys:rexxc/rx "say(show(P,MV_{num},))"` eq 0
  20.     Run >NIL: SYS:Utilities/MultiView $tempname PORTNAME MV_{num}
  21. else
  22.     sys:rexxc/rx "address MV_{num} 'open name $tempname'"
  23. endif
  24.  
  25. failat 21
  26.  
  27. lab loop
  28. wait 20 sec
  29. delete $tempname quiet >NIL:
  30. if warn
  31.     skip loop back
  32. endif
  33.  
  34. unset tempname
  35.